program testProject2Program;

class testProject2Class

BEGIN

VAR 	XRay : ARRAY[0 .. 4] OF integer;
	YRay : ARRAY[8 .. 12] OF integer;
	aa : integer;
	bb : integer;
	cc : integer;
	dd : integer;
	ee : integer;
	ff : integer;
	gg : integer;

FUNCTION testProject2Function;
VAR	dd : integer;
BEGIN

        gg := 0;

        aa := cc + gg;
	
	cc := bb;

        gg := 1;

	aa := cc * gg;

	cc := dd;

        gg := 0;

	aa := cc - gg;

	cc := ee;

        gg := 0;

	aa := cc * gg;

	cc := ff;

	aa := cc - cc;

	cc := gg;

	aa := cc / cc;

	cc := bb;

        gg := 1;

	aa := cc / gg;

	cc := dd;

        gg := 2;

	aa := gg * cc;

	cc := ee;

	aa := cc MOD cc;

	cc := ff;

        gg := 1;

	aa := cc MOD gg;

	cc := bb;

        gg := 1;

	aa := gg MOD cc

END

END
.


